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GLOSSARY 


The  following  terms  and  acronyms  are  used  in  a  more  or  less  special¬ 
ized  sense  herein. 


Block 

a  floating-boundary  block 

Checking  mode 

a  state  wherein  all  subscripts  of  stores,  loads 
and  swaps  are  checked  for  legality 

CM 

checking  mode 

Dimension  word 

a  preface  word  which  defines  the  upper  sub¬ 
scripting  limit  for  a  given  dimension 

DW 

dimension  word 

Dynamic  allocation 

assignment  of  memory  at  execution  time  as 
opposed  to  load  time 

EB 

extended  block 

Extended  block 

a  block  together  with  its  preface  words 

Floating-boundary  block 

a  dynamically  allocated  unit  of  storage 

Free  block 

a  block  in  Scratchpad  which  is  not  reserved 

FUDGE 

a  constant  used  in  subscript  calculation 
(preface  words) 

n 

the  1^  subscript  in  a  store,  load  or  swap 
request 

Key  word 

a  word  within  the  user's  program  which  is 
associated  with  a  block  and  is  used  to 
identify  it 

KW 

key  word 

NDIM 

the  number  of  dimensions  proper  to  a  given 
block  (Storage  Control  Word) 

NI 

the  highest  value  that  a  subscript  may 
legally  assume  in  the  I^1  direction 

NSXPAD 

the  total  number  of  cells  in  Scratchpad 

ix 

GLOSSARY  (Concluded) 


Name  word 

a  word  containing  the  name  and  data  type 
of  a  block  (preface  words) 

NW 

name  word 

Packing 

collecting  of  all  reserved  blocks  together 
so  as  to  create  a  single  free  block  of 
maximum  size 

Preface  words 

cells  just  preceding  a  block  intended  for 
XPSTC' s  internal  use  (viz:  SCW,  NW, 
FUDGE  (if  any),  and  DW's  (if  any)) 

PWs 

preface  words 

Reserved  block 

an  allocated  block 

Scratchpad 

the  section  of  memory  set  aside  for  all 
dynamically  allocated  storage 

sew 

storage  control  word 

SM 

stationary  mode 

Stationary  mode 

a  state  wherein  packing  is  illegal 

Storage  control  word 

a  word  defining:  (1)  the  associated  KW; 
(2)  the  allocation  status;  (3)  whether  or 
not  another  block  follows;  (4)  NDIM; 
and  (5)  the  block  size  for  a  given  block 

XPAD 

scratchpad 

XPSTC 

scratchpad  storage  controller 
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SECTION  I 


INTRODUCTION 


PURPOSE  AND  SCOPE 

XPSTC,  a  FORTRAN  dynamic  storage  allocator,  was  originally  de¬ 
signed  to  keep  track  of  the  floating-boundary  storage  blocks  in  a  MITRE 
Project  4164  (SLBM)  program.  This  program  required  floating-boundary 
storage  because  both  input  parameters  and  intermediate  results  could  cause 
certain  tables  to  vary  in  required  size.  To  have  fixed  all  such  tables  at 
their  maximum  size  would  have  caused  available  core  space  to  be  exceeded. 
Furthermore,  in  order  to  assure  that  space  was  used  only  for  live  data 
(data  with  potential  future  use),  it  was  desirable  that  programs  share  work¬ 
ing  storage  space.  XPSTC  was  written  in  a  generalized  fashion  so  as  to  be 
useful  whenever  situations  of  this  sort  arise.  XPSTC  performs  four  basic 
functions : 

(1)  allocation  of  storage  blocks  with  dimensions  as  required  by 
the  calling  program; 

(21  in-flight  adjustment  of  dimensions  as  may  be  required; 

(3)  storing  to  and  loading  from  such  blocks;  and 

(4)  release  of  any  storage  which  contains  information  which 
is  no  longer  of  use. 

In  addition,  the  program  has  six  principal  auxiliary  functions: 

(1)  Checking  Mode:  When  desired,  all  subscripts  are  monitored 
to  assure  that  original  dimensions  are  not  exceeded  during 
storing  and  loading. 

(2)  Infinite  Storage  Request:  All  available  memory  may  be 
allocated  when  necessary. 
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(3)  Direct  Access:  The  calling  program  may  obtain  the  absolute 
location  of  a  given  block,  and  perform  its  own  storing  and 
loading. 

(4)  Stationary  Mode:  As  an  adjunct  to  direct  access,  the  status 
of  Scratchpad  may  be  temporarily  frozen  so  that  absolute 
addresses  do  not  become  obsolete  because  of  block  shuffling. 

(5)  Status  Request:  The  calling  program  may  obtain  the  status 
(reserved  or  free)  of  a  given  block. 

(6)  Debugging  Aids:  The  calling  program  may  request  that  a  map 
or  a  complete  dump  of  Scratchpad  storage  area  be  printed 
output.  Also,  all  input  (except  subscripts  when  not  in  the 
checking  mode)  are  monitored  for  validity. 


GENERAL  DESCRIPTION 

XPSTC  is  a  group  of  subroutines  which  may  be  called  by  the  FORTRAN 
(or  STRAP)  user  when  he  wishes  one  of  the  above  functions  carried  out.  It  is 
totally  dependent  upon  information  given  to  it  via  such  calls.  It  must  be  told, 
for  example,  how  much  memory  is  available  for  allocation  and  where  this 
memory  is.  It  will  neither  allocate,  adjust,  nor  release  a  storage  block  without 
an  explicit  call. 

In  consequence  of  this,  the  first  call  must  be  to  the  initialization  sub¬ 
routine  to  inform  XPSTC  where  Scratchpad  (see  Glossary)  is  and  how  much 
memory  is  available  there.  Storage  is  allocated  from  Scratchpad  when  a  call  is 
made  to  another  subroutine,  giving  it  a  key  word  which  will  be  the  block  identifier, 
and  the  dimensions  of  the  required  block.  Any  number  of  dimensions  are  allow¬ 
able,  including  0  which  is  interpreted  as  a  request  for  a  single  cell.  Another 
subroutine  will  allocate,  as  a  one- dimensional  (vector)  block,  all  of  Scratchpad 
which  is  currently  free  and  inform  the  calling  program  as  to  the  size  of  this  block. 
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"Allocation"  of  a  block  consists  of: 

(1)  storing  a  code  in  the  key  word  supplied  by  the  user,  so  that  the 
intended  block  may  be  identified  on  subsequent  store,  load,  or 
release  requests;  and 

(2)  storing  of  preface  words  which  precede  the  reserved  block  in 
Scratchpad,  delimit  it,  and  flag  it  as  reserved. 

If  sometime  after  a  block  has  been  allocated,  it  becomes  necessary  to 
alter  the  dimension  specifications  while  preserving  some  or  all  of  the  data  already 
stored  into  the  block,  it  is  possible  to  change  any  of  the  dimensions  (though  not 
the  number  of  dimensions)  by  calling  a  subroutine  designed  for  this  purpose.  Any 
element  is  preserved  whose  subscripts  are  legal  under  both  sets  of  dimension 
specifications. 

Storing  into  the  allocated  block  is  also  accomplished  by  a  subroutine  call, 
giving  the  value  to  be  stored,  the  key  word,  and  the  subscripts  of  the  element. 

Any  type  of  data  (floating  point,  fixed  point,  logical,  binary,  or  alphanumeric) 
may  be  stored.  As  is  explained  more  fully  in  Section  II,  the  "calling  sequence,  " 
which  is  compiled  from  the  FORTRAN  user’s  CALL  statement,  is  often  replaced 
during  execution  by  an  in-line  code  which  eliminates  the  time-consuming  linkage 
process. 

Loading  from  the  block  takes  the  form  of  a  function-type  reference,  again 
giving  the  key  word  of  the  block  and  the  subscripts  of  the  element  to  be  loaded. 

A  "swap"  subroutine  is  also  available;  the  parameters  are  similar  to 
those  for  storing  except  that  the  value  to  be  stored  is  itself  replaced  by  the  old 
value  of  the  element  in  the  storage  block.  As  with  the  store  subroutines,  the 
calling  sequences  to  load  or  swap  are  usually  replaced  by  equivalent  in-line 
code  for  the  sake  of  speed. 
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When  through  using  a  block,  the  user  may  make  the  space  therein  available 
for  other  purposes  by  "releasing"  the  block.  This  is  done  by  calling  a  subroutine, 
giving  it  the  key  word  of  the  block  to  be  released.  Releasing  the  block  consists  of: 

(a)  disabling  the  key  word  so  that  attempted  use  (stores,  loads,  or 
swaps)  of  the  block  before  another  allocation  request  becomes 
illegal;  and 

(b)  flagging  of  the  block  itself  as  "free.  " 

In  special  circumstances  it  may  be  necessary  to  know  the  absolute  address 
of  an  allocated  block;  for  example,  when  it  is  desired  to  include  a  vector  within 
the  block  among  the  call  parameters  to  a  general  subroutine.  In  this  situation  it 
is  possible  to  call  a  subroutine  which,  given  the  key  word  of  the  block,  will  return 
the  "base  address"  of  the  block  with  respect  to  the  first  address  of  Scratchpad. 

In  FORTRAN  parlance,  the  value  returned  is  the  index  of  the  cell  just  preceding 
the  block,  when  all  of  Scratchpad  is  considered  a  vector  array.  The  restrictions 
applying  to  this  procedure,  however,  should  be  noted  carefully  (see  Section  n,  H, 
page  22). 

The  other  auxiliary  functions  mentioned  in  Section  I  are  also  carried  out 
upon  special  subroutine  call. 
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SECTION  n 


USAGE 


Program  input-output  is  achieved  via  calling  sequence.  In  the  case  of 
an  error,  a  diagnostic  printout  is  supplied.  A  summary  of  calling  sequences 
is  shown  in  Table  I. 


CALLING  SEQUENCES 

The  following  is  a  detailed  description  of  the  individual  calling 
sequences. 


A.  INSTO  -  Initialize  Storage 

CALL  INSTO  (XPAD,  NSXPAD,  CM) 


(1)  Parameter 

(2)  Type  (3)  Restrictions 

(4)  Description 

XPAD 

Variable  - 

Array 

Entire  portion  of  mem¬ 
ory  which  is  to  be  used 
for  floating  boundary 
storage  allocation. 

NSXPAD 

Fixed  Point  —3 

Expression 

Number  of  memory 
cells  in  Scratchpad. 

CM 

Logical  - 

Expression 

Logical  .TRUE,  if 
checking  of  sub¬ 
scripts  during  storing 
and  loading  is  desired; 
.FALSE,  otherwise. 

(5)  Operation  (see  Figure  1) 

(A)  If  INSTO  has  been  called  previously  in  this  computer  run,  all 
blocks  allocated  since  the  last  such  call  are  released. 

(B)  The  address  and  size  of  Scratchpad  are  stored  internally  for 
use  by  the  other  XPSTC  subroutines. 
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TABLE  I 


Call  Sequence  Summary  Alphabetical,  by  Call  Name 


Function 

Adjust  Dimension 
Allocation  Status  Test 
Req.  All  Avail.  Storage 
Enter  Checking  Mode 
Enter  Stationary  Mode 
Floating  Load 
Req.  Block  Base  Index 
Integer  Load 
Initialize  Storage 

Logical  Load 
Resume  Prior  CM 
Resume  Prior  SM 
Reassign  Key  Word 
Release  Storage 
Request  Named  Storage 

Request  Storage 
Request  XPAD  Dump 
Request  XPAD  Map 
Store 
Swap 

Trial  Adjust  Dimension 
Trial  Request  Storage 


Sequence  Paragraph 

CALL  ADJD  (KW,  I,  NT)  II.  F 

XL  =ALLOC  (KW)  R.  M 

CALL  ALSTO  (KW,  N)  II.  E 

CALL  ENTCM  II.  N 

CALL  ENTSM  R.  P 

XX  =FL(KW,  (II . INDIM)  II.  J 

IB  =IBASE  (KW)  II.  H 

H  =IL  (KW,  II, . .  ,  INDIM)  II.  J 

CALL  INSTO  (XPAD,  NSXPAD, 

CM)  II.  A 

XL  =LL  (KW,  II, . .  ,  INDIM)  II.  J 

CALL  RESCM  II.  O 

CALL  RESSM  II.  Q 

CALL  RKW(OKW,  NKW)  II.  R 

CALL  RLSTO  (KW1,  KW2, .  . .  )  II.  L 

CALL  RQNSTO  (SYMBOL,  KW, 

N1 . NNDIM)  II.  C 

CALL  RQSTO  (KW,  N1 . NNDIM)  II.  B 

CALL  RQXDP  II.  T 

CALL  RQXMP  II.  S 

CALL  ST(X,  KW,  II, .  .  ,  INDIM)  II.  I 

CALL  SW  (X,  KW,  II, .  .  ,  INDIM)  R.  K 

XL  =TADJD  (KW,  I,  NI)  H.  G 


XL  =TRQSTO  (KW,  Nl, .  .  ,  NNDIM)  R.  D 
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Figure  1.  Function  Flow  Chart  -  INSTO 
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(C)  Checking  mode  is  turned  on  or  off  as  CM  is  .TRUE,  or  .  FALSE., 
except  that  if  checking  mode  has  previously  been  off  during  the 
run,  any  stores,  loads,  or  swaps  executed  while  CM  was  off 
effectively,  remain  in  the  nonchecking  mode. 

(D)  Stationary  mode  is  turned  off. 

(E)  Level  counters  Isee  Paragraphs  N (2)  and  P(2 )]  for  CM  and  SM 
are  set  to  6 . 

(6)  Comments  and  Examples 


(A)  It  is  frequently  convenient  to  make  XPAD  synonymous  with  blank 
common: 

COMMON  XPAD  (26666) 


CALL  INSTO  (XPAD,  26666,  .FALSE.) 

In  this  way  any  subroutine  will  have  access  to  XPAD  itself  as 
an  array  variable;  this  is  a  prerequisite  when  using  the  direct 
access  feature  (see  Paragraph  H). 

(B)  Although  it  is  more  usual  to  leave  Scratchpad  itself  fixed  dur¬ 
ing  a  run,  calling  INSTO  after  the  first  time  only  when  neces¬ 
sary  to  free  all  active  blocks,  there  is  no  requirement  that 
XPAD  and  NSXPAD  do  not  change  from  call  to  call. 

(C)  The  substance  of  (5)  (C)  above  is  that  it  is  unusual,  though 

not  illegal,  to  change  from  nonchecking  mode  to  checking  mode 
via  INSTO  during  the  course  of  a  computer  run.  In  the  usual 
case,  CM  is  an  external  input  parameter  which  is  set  to  true  at 
the  beginning  of  runs  in  early  checkout  phases  of  program  de¬ 
velopment  and  then  is  set  to  false.  Storing,  loading,  and  swapping 
are  much  faster  in  the  nonchecking  mode. 
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B.  RQSTO  -  Request  Storage 


CALL  RQSTO  (KW, 

Nl,  N2  Nl  ,.. 

.  ,  NNDIM) 

(1)  Parameter 

(2)  Type 

(3)  Restrictions 

(4)  Description 

KW 

Variable 

May  not  be  with¬ 
in  XPAD 

The  key  word  which 
will  be  used  to  iden¬ 
tify  the  resulting  block. 

NI 

Fixed  Point 
Expression 

>6 

Upper  subscripting 
limit  for  the  I^1  dimen¬ 
sion  of  the  requested 
block;  if  dimension  is 
wholly  absent,  one  cell 
is  allocated. 

(5)  Operation  (see  Figures  2  and  3) 

(A)  The  size  of  the  required  extended  block  is  determined  by  the 
following  formulae: 

NDIM  Extended  Block  Size 

6  3 

1  Nl  +  2 

2  (N1)(N2)+  4 

—  3  (Nl)  (N2 ).  .  (NNDIM)  +  NDIM  +  3 

(B)  Scratchpad  is  searched  for  a  free  block  large  enough  to  accommo¬ 
date  this  extended  block.  If  one  is  found,  the  sequence  con¬ 
tinues  with  (D)  below. 

(C)  Otherwise,  Scratchpad  is  packed  (if  in  SM,  an  error  stop  occurs). 
If  the  free  block  thus  created  is  still  not  large  enough,  an  error 
stop  results. 

(D)  The  address  of  this  extended  block  is  stored  into  the  key  word. 

The  user  should  not  alter  the  key  word,  at  least  until  the  al¬ 
located  storage  has  been  released  [  1  ]  or  the  key  word  has  been 
reassigned  [  see  Paragraph  R  ] . 


9 


Figure  2.  Functional  Flow  Chart  -  RQSTO,  RQNSTO,  TRQSTO 
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Figure  3.  Functional  Flow  Chart  -  RQSTO,  RQNSTO,  TRQSTO 
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(E)  The  necessary  information  is  placed  in  the  preface  words  (the 
NW  is  zeroed),  a  free  block  is  created  to  take  up  any  left-over 
space,  and  the  subroutine  returns. 

(6)  Comments  and  Examples 


(A)  CALL  RQSTO  (KW) ,  a  6  (dimension  storage  request)  has  been 
made  legal  for  two  reasons:  symmetry,  and  such  requests  would 
be  necessary  if  a  data  reader  were  added  to  XPSTC.  With  the 
present  XPSTC,  such  a  request  has  no  rational  application.  The  KW 
cell  itself  might  as  well  be  used  for  the  storage,  and  the  result¬ 
ing  access  code  generated  by  FORTRAN  would  be  a  great  deal 
more  efficient. 

(B)  In  general,  when  the  maximum  attainable  size  of  a  table  is  known 
at  compile-time  to  be  quite  small,  10  or  20  cells,  it  is  not  worth¬ 
while  to  use  floating  memory.  An  ordinary  DIMENSION  state¬ 
ment  requires  less  programming  and  less  trouble,  saves  a  little 
time,  and  may  waste  no  more  storage  in  the  long  run. 

(C)  The  sequence: 

CALL  RQSTO  (X,  NOOFXS) 

CALL  RQSTO  (Y,  16,  NOOFYS+NNS,  NGS,  NFS) 

would  cause  two  blocks  to  be  reserved:  one  would  be  a  1- 
dimensional  array  with  NOOFXS  storage  cells  and  two  preface 
words;  the  other  would  be  a  4-dimensional  array  with  (16) 
(NOOFYS+NNS)  (NGS)  (NFS)  data  cells  and  seven  preface  words. 


C.  RQNSTO  -  Request  Named  Storage 

CALL  RQNSTO  (SYMBOL,  KW,  Nl,  N2, .  .  ,  Nl, .  .  .  ,  NNDIM) 


(1)  Parameter  (2)  Type 


(3)  Restrictions 


(4)  Description 


SYMBOL 

Variable 

Contains  A8 

code 

The  name  to  be  assigned 
the  block  (up  to  six 
characters)  plus  a  type 
character  (F,  floating; 
A,  alphanumeric;  I, 
integer;  L,  logical)  for 
storage. 
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C.  RQNSTO  -  Request  Named  Storage  (Cont. ) 

CALL  RQNSTO  (SYMBOL,  KW,  Nl,  N2, . . ,  Nl, . . . ,  NNDIM), 
(1)  Parameter  (2)  Type  (3)  Restrictions  (4)  Description 


KW 


Nl 

the  requested  block;  if 
dimensioning  is  wholly 
absent,  one  cell  is  al¬ 
located. 


V  ariable 

Not  in  XPAD 

The  key  word  which  will 
be  used  to  identify  the 
resulting  block. 

Fixed  Point 
Expression 

>6 

Upper  subscripting  limit 
for  the  I^* 1  dimension  of 

(5)  Operation  (see  Figures  2  and  3) 

Except  that  the  block  name  and  type  are  extracted  from  SYMBOL  and 
stored  in  the  NW,  operation  is  exactly  that  of  RQSTO  [  see  Paragraph  B]  . 

(6)  Comments  and  Examples 


(A)  In  the  current  XPSTC,  RQNSTO  adds  nothing  to  RQSTO,  except 
perhaps  readability  to  the  output  from  RQXMP  [  see  Paragraph  S] . 

(B)  The  call 

CALL  RQNSTO  (3HXAF,  X,  NOOFXS)  causes  a  one-dimensionai 
vector  with  NOOFXS  storage  cells  and  two  preface  words  to  be 
reserved.  The  name  of  the  block  is  considered  to  be  XA  and  the 
type  of  data  is  considered  floating.  Note,  however,  that  data, 
going  in  and  out  of  a  storage  block  via  stores,  loads  or  swaps,  is 
not  monitored  for  type  whether  the  block  is  named  or  not. 

D.  TRQSTO  -  Trial  Request  Storage 

Logical  Function:  TRQSTO  (KW,  Nl ,  N2 , .  .  .  ,  Nl, . . .  NNDIM) 

(1)  Parameter  (2)  Type  (3)  Restrictions  (4)  Description 

KW  Variable  May  not  be  Key  word  which  will  be 

within  XPAD  used  to  identify  the  re¬ 
sulting  block,  if  any. 
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Logical  Function:  TRQSTO  (KW,  N1 ,  N2 , NI, ,  NNDIM),(Cont. ) 

(1)  Parameter  (2)  Type  (3)  Restriction  (4)  Description 

NI  Fixed  Point  >6  Upper  subscripting  limit 

Expression  for  the  I^1  dimension  of  the 

requested  block;  if  dimen¬ 
sioning  is  wholly  absent, 
one  cell  is  implied. 

(5)  Operation  (see  Figures  2  and  3) 

Operation  is  exactly  that  of  RQSTO  except  that  if  sufficient  storage  for 
the  requested  block  is  not  available,  the  job  is  not  aborted  but  rather 
the  function  value  is  set  to  .  FALSE,  and  no  allocation  is  made.  When 
a  normal  allocation  occurs,  the  function  takes  on  the  value  .TRUE. 

(6)  Example 

The  IF  statement  in  the  sequence  (non-SM) 

LOGICAL  TRQSTO 

IF  (TRQSTO  (SAVE,  NRES,  5fi))  GO  TO  2,66 
C  NOT  ENOUGH  ROOM  TO  SAVE  INTERMEDIATE 
C  RESULTS  -  MUST  USE  DISK 
266 - 

C  SAVE  AREA  ALLOCATED,  SAVE  RESULTS 

3fjfj - 

will  cause  allocation  of  SAVE  and  a  branch  to  statement  3 66  if 
NRES*50+4  locations  are  free;  otherwise  the  sequence  starting 
at  statement  266  will  be  executed. 


E.  ALSTO  -  Request  All  Available  Storage 


CALL  ALSTO  (KW,  Nl) 

(1)  Parameter 

(2)  Type 

(3)  Restriction 

(4)  Description 

KW 

Variable 

Not  in  XPAD 

Key  word  for  the  block. 
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CALL  ALSTO  (KW,  Nl),  (Cont. ) 


(1)  Parameter  (2)  Type  (3)  Restrictions  (4)  Description 


Nl  Fixed  Point 

V  axiable 


Returned  as  the  number 
of  data  cells  reserved. 

Nl  may  be  returned  as  fj, 
which  means  that  less  than 
3  cells  were  found  to  be 
free  in  Scratchpad  and  no 
block  was  reserved. 


(5)  Operation  (see  Figure  4) 

(A)  Scratchpad  is  packed  unless  in  SM.  In  this  case,  the  largest 
free  block  is  found. 

(B)  If  there  are  less  than  3  cells  in  this  block,  return  Nl=ff. 

(C)  Set  up  key  word  and  two  preface  words.  Set  Nl=number  of 
available  cells  minus  two  and  return.  This  completes  the  set 
up  of  one-dimensional  vector  of  Nl  data  words. 


(6)  Comments  and  Examples 


The  call  CALL  ALSTO  (X,  NX)  has  the  same  result  as  if  NX  could 
be  determined  in  advance  and  (NX>tf)  CALL  RQSTO  (X,NX)  were 
executed,  except  for  the  physical  order  of  the  blocks  within  Scratchpad. 


F.  ADJD  -  Adjust  Dimension 

CALL  ADJD  (KW,  I,  Nl) 


(1)  Parameter 

(2)  Type 

(3)  Restrictions 

(4)  Description 

KW 

Variable 

See  (6)(A)  below 

Key  word  of  the  block 
whose  dimensions  are 
to  be  adjusted. 

I 

Fixed 

l^I^fDIM 

No.  of  the  dimension 

Point 

whose  subscripting  limit 

Expression 

is  to  be  adjusted. 
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ALSTO 


Figure  4.  Functional  Flow  Chart  -  ALSTO 
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CALL  ADJD  (KW,  I,  NI),  (Cont. ) 


(1)  Parameter  (2)  Type  (3)  Restrictions  (4)  Description 


NI 


Fixed  Point 
Expression 


>6 


New  upper  subscripting 
limit  for  the  I^1  dimen¬ 
sion. 


(5)  Operation  (see  Figures  5,  6,  and  7) 

(A)  The  block  associated  with  KW  is  located.  It  must  be  currently 
allocated. 

(B)  If  the  new  NI  is  equal  to  the  old  NI,  an  immediate  return  is  made. 

(C)  If  the  new  NI  is  less  than  the  old  NI,  the  internal  data  is  re¬ 
arranged  to  match  the  new  dimensioning,  a  free  block  is  created 
to  take  up  the  excess,  the  preface  words  are  updated,  and  a 
normal  return  is  made. 

(D)  If  the  new  NI  is  greater  than  the  old  NI,  operation  depends  upon 
the  arrangement  of  Scratchpad.  If  there  is  sufficient  space  in 
the  form  of  free  blocks  immediately  above  this  block,  the  action 
taken  is  similar  to  (C)  above.  If,  as  is  usually  the  case,  this 
condition  is  not  met,  Scratchpad  is  packed  so  that  all  free  storage 
is  located  after  this  block  (in  stationary  mode)  and  an  error  stop 
results.  If  this  is  still  not  enough,  an  error  stop  results;  other¬ 
wise,  continue  as  in  (C)  above. 

(6)  Comments  and  Examples 

(A)  The  key  word  used  must  be  exactly  that  used  when  the  block  was 
originally  reserved,  or  a  derivative  via  RKW  [  see  Paragraph  R] . 
The  sequence 


CALL  RQSTO  (A,NA1,NA2) 


B=A 


CALL  ADJD  (B,  1,  NA1+1) 
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ADJD 


TADJI) 


Figure  5.  Functional  Flow  Chart  -  ADJD,  TADJD 


Figure  6.  Functional  Flow  Chart  -  ADJD,  TADJD 
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Figure  7.  Functional  Flow  Chart  -  ADJD,  TADJD 
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would  result  in  an  error  stop.  The  sequence  would  be  acceptable 
if  B=A  were  replaced  by  CALL  RKW  (A,B).  One  consequence  of 
this  is  that  key  words  cannot  ordinarily  be  passed  through  calling 
sequences  to  FORTRAN  subroutines  [  l]  *  without  resorting  to 
oblique  tricks.  When  more  than  one  routine  must  access  a  block, 
the  best  technique  is  to  place  the  key  word  for  that  block  in  some 
COMMON. 

(B)  The  restriction  on  (1)  Parameter  I,  implies  NDIM^l;  an  attempt 
to  adjust  the  dimensions  of  a  ^-dimension  block  is  always  an 
error. 

(C)  When  the  new  NI  is  less  than  the  old  NI,  all  elements  whose  r 
subscript  is  greater  than  the  new  NI  are  irrevocably  lost.  In  the 
reverse  case,  any  elements  whose  1^  subscript  is  greater  than 
the  old  NI  are  in  an  uninitialized  state  and  may  have  any  value 
prior  to  being  stored  into. 

(D)  For  all  practical  purposes,  an  ADJD  with  the  new  NI  greater  than 
the  old  should  be  considered  illegal  in  stationary  mode. 


G.  TADJD  -  Trial  Adjust  Dimension 

Logical  Function  =  TADJD  (KW,I,NI) 


(1) 

Parameter 

(2)  Type 

(3)  Restrictions 

(4)  Description 

KW 

V  ariable 

See  F.  (6)(A) 

Key  word  of  the  bloe1r 
whose  dimensions  are 
to  be  adjusted. 

I 

Fixed  Point 
Expression 

1^=1  — NDIM 

No.  of  the  dimension 
whose  subscripting  limit 
is  to  be  adjusted. 

NI 

Fixed  Point 
Expression 

>6 

New  upper  subscripting 
limit  for  the  I^1  dimension. 

(5) 

Operation 

(see  Figures  5, 

6,  and  7) 

Operation  is  exactly  that  of  ADJD,  except  that  neither  of  the  error 
stops  mentioned  in  Paragraph  F.  (5)(D)  can  occur.  Instead,  no  adjustment 


* 

See  Ref.  1;  n.  D.2  .10.1 
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is  made  and  the  function  is  assigned  the  value  .  FALSE. .  When  adjustment 
occurs  normally,  the  function  becomes  .TRUE.  . 

(6)  Comments  and  Examples 

(A)  All  comments  for  ADJD  [  see  Paragraph  F.  (6)]  apply  except  (D). 

(B)  Assuming  sufficient  space,  the  sequence 

LOGICAL  TADJD 

CALL  RQSTO  (A,2,4,6,8) 


IF  (.  NOT.  TADJD  (A,  3,  9)  GO  TO  366 

266 


would  fall  through  to  statement  266  with  block  "A"  appearing 
exactly  as  though  it  had  been  reserved  by  a 

CALL  RQSTO  (A,  2, 4,  9,  8) 


H.  IBASE  -  Request  Block  Base  Index 


Function:  IBASE  (KW) 

(1)  Parameter  (2)  Type  (3)  Restrictions  (4)  Description 

KW  Variable  See  F.(6)(A)  Key  word  of  the  block 

whose  base  index  is 
requested. 

(5)  Operation  (see  Figure  8) 

(A)  The  block  associated  with  KW  is  located.  It  must  be  currently 
allocated. 

(B)  The  base  index  is  computed  so  that  if  XPAD(l)  denotes  the  first 
element  in  Scratchpad,  XPAD  (IBASE  (KWj+l )  denotes  the  first 
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Figure  8.  Functional  Flow  Chart  -  IBASE 
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element  of  the  data  storage,  as  opposed  to  preface  words, 
associated  with  KW. 

(6)  Comments  and  Examples 

The  base  index  has  only  temporary  validity,  and  caution  should  be 

exercised  in  using  it.  Whenever  a  storage-using  call  that  is  TRQSTO, 

RQNSTO,RQSTO,  expanding  TADJD  or  ADJD,  ALSTO  is  made,  the  location 

of  a  particular  block  already  in  Scratchpad  may  be  altered,  unless  stationary 

mode  is  in  effect.  The  key  word  is  updated  to  reflect  the  change,  but  there 

is  no  way  for  XPSTC  to  update  indexes  calculated  from  IBASE.  Consequently 

the  base  index  and  the  results  of  any  concomitant  index  computations  should 

not  be  used  without  recalculation  after  any  storage-using  call  except  in  SM. 

The  following  situation  represents  a  violation  of  this  rule.  Program  II  is  a 

subroutine  which,  rather  inefficiently,  reverses  the  order  of  a  vector  X  of 

th 

NX  entries.  Program  I  wishes  this  operation  performed  upon  the  J  column 
of  a  2 -dimensional  matrix.  Note:  FORTRAN,  XPSTC  stores  with  the  first 
subscript  varying  most  rapidly,  column-wise,  in  the  case  of  2  dimensions. 

The  matrix  is  in  Scratchpad  and  the  programmer  of  Program  I  forgets  or  does 
not  know  that  Program  II  calls  for  storage  before  using  the  vector  address: 

PROGRAM  I 
(Assume  non-SM) 

COMMON  XPAD  (2  6666) 

CALL  INSTO  (XPAD,  2 6666,  .FALSE.) 

CALL  RQSTO  (XMATR,N,  M) 

IXCOLJ  =  IBASE  (XMATR)  +  N*  (J-l)  + 1 
CALL  PROG  H  (XPAD  (IXCOLJ),N) 
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PROGRAM  H 


SUBROUTINE  PROG  E(X,  NX) 

DIMENSION  X  (NX) 

COMMON  XPAD  (26666) 

CALL  RQSTO  (TEMP, NX) 

ITEMP  =  IBASE  (TEMP) 

DO  l6  1=1, NX 
INDEX  =  ITEMP+NX-I+1 
l6  XPAD(INDEX)  =  X(I) 

DO  26l=  1,NX 
INDEX  =  ITEMP+I 
2  6  X(I)  =  XPAD  (INDEX) 

CALL  RLSTO  (TEMP)  [  see  Paragraph  L  ] 

RETURN 

The  above  sequence  could  very  well  blow  up  if  the  CALL  RQSTO  (TEMP, 
NX)  caused  a  packing  of  Scratchpad  so  that  XPAD  (IXCOLJ)  no  longer  was 
the  first  element  of  column  J.  As  it  stands.  Program  n  is  a  correct  program 
only,  subject  to  the  restriction  that  either  none  of  the  call  parameters  shall 
be  Scratchpad  addresses  or  that  SM  shall  be  in  effect.  If  Program  IE  were 
recoded  as  shown  below,  then  Program  I  would  be  correct  as  it  stands: 

SUBROUTINE  PROG  H  (X,NX) 

DIMENSION  X  (NX) 

MX  =  NX/2 
J  =  NX+1 
DO  l6  I  =  1,  MX 
J  =  J  -  1 
TEMP  =  X(J) 

X(J)  =  X(I) 
l6  X(l)  =  TEMP 
RETURN 

Another  way  of  correcting  the  situation  would  be  for  the  PROG  n  pro¬ 
grammer  to  bracket  the  CALL  RQSTO  with  the  statements 

CALL  ENTSM  [  p  ] 

CALL  RESSM  C  q  ] 
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or  the  PROG  I  programmer  could  do  the  same  with  the  CALL  PROG  II 
statement. 


I.  ST  -  Store 


CALL  ST  (X, KW,  11,12,  .  .  . ,  II,  ...  ,INDIM) 


(1)  Parameter 

(2)  Type 

(3)  Restrictions 

(4)  Description 

X 

Expression 

— 

The  value  to  be  stored. 

KW 

Variable 

See  F.  (6)(A) 

Key  word  of  the  block  to 
be  stored  into. 

II 

Fixed  Point 
Expression 

6  <11^  NI 

subscript  of  the  element 
to  receive  the  value  X.  The 
numbers  of  subscripts  must 
match  the  number  of  dimen¬ 
sions  in  the  storage  request. 

(5)  Operation  (see  Figures  9  and  10) 

(A)  The  block  associated  with  KW  is  located.  It  must  be  currently 
allocated. 

(B)  The  number  of  subscripts  is  checked  on  the  first  execution  only, 

■within  a  computer  run. 

(C)  If  XPSTC  is  in  the  checking  mode,  a  number  of  validity  checks 
are  made  upon  the  key  word  and  preface  words,  and  all  the  sub¬ 
scripts  are  checked  for  valid  range.  With  these  tests  passed,  the 
effective  address  of  the  cell  is  compiled  from  the  subscripts,  the 
store  is  made,  and  the  program  returns. 

(D)  On  the  first  execution  after  nonchecking  mode  has  been  established, 
all  the  checks  described  in  (C)  are  performed;  however,  before 
returning,  a  block  of  code  is  usually  generated  and  stored  over  the 
calling  sequence.  This  code  is  designed  to  perform  the  floating-block 
store  in  much  the  same  way  that  FORTRAN  ordinarily  compiles  its 
stores  to  static  blocks;  only  one  or  two  extra  machine  instructions 
are  required  in  most  cases.  The  only  exception  to  this  rule  is  the 
situation  where  one  of  the  call  parameters  is  a  variable  with  a 
variable  subscript.  In  this  case,  only  the  branch  within  the  calling 
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Figure  9.  Functional  Flow  Chart  -  ST 
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I _ I 


Note:  dotted  lines  enclose  sections  that 
are  actually  repeated  four  times — once 
each  for  the  cases  NDIM  =  0,  lf  2  and  ^  3. 


Figure  10.  Functional  Flow  Chart  -  ST 
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sequence  is  replaced  so  that  a  direct  entry  to  a  special  fast  store 
routine  is  made  each  call. 

(6)  Comments  and  Examples 


(A)  STRAP  users  may  guess  from  (5)(D)  above  that  the  calling  sequence 
to  ST  should  not  be  stored  into  unless  some  signal  is  furnished 
XPSTC  [see  Section  III,  Storing,  Loading  and  Swapping,  page  58 ]. 
FORTRAN  users  especially  concerned  with  efficiency  should 
consult  this  section  also. 

(B)  The  sequence 


CALL  RQSTO  (SINES,  MAXROW,  MAXCOL) 

CALL  ST  (SIN  (X)-l,  SINES,  MAX(I,  J),  K  *  N+L(I)) 

will  result  in  the  value  sin  x-1  being  stored  into  the  element  of 
SINES  which  has  the  subscripts  max  (i,  j  ),kn+D. 


J.  FL,IL,LL  -  Floating,  Integer,  and  Logical  Load 


Functions:  FL  (KW,  II ,  12 . .  H, .  .  .  INDIM) 

IL  (KW, II ,  12 . ,11, ..  .INDIM) 

LL  (KW,I1,I2, . ,H,  .  .  .INDIM) 


(1)  Parameter  (2)  Type  (3)  Restrictions  (4)  Description 


KW 

II 


Variable  SeeF.(6)(A) 

Fixed  Point  0  <  1 1  —  INDIM 
Expression 


Key  word  for  the  block 
to  be  loaded  from. 

Iin  subscript  of  the 
element  whose  value  will 
become  the  value  of  the 
function.  The  number  of 
subscripts  must  match 
the  number  of  dimensions 
in  the  storage  request 
(NDIM). 
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(5)  Operation  (see  Figures  11  and  12) 


Operation  is  the  same  as  that  of  ST  [  see  Paragraph  I]  ,  except  that 


M 


store" 


should  be  read  "load"  and  "stores  to"  should  read  "loads  from". 


(6)  Comments  and  Examples 

(A)  All  comments  for  ST  [see  Paragraph  I]  apply  with  obvious  mod¬ 
ifications. 

(B)  FL,  IL,  and  LL  are  merely  different  names  for  exactly  the  same 
program.  Since  XPSTC  neither  knows  nor  cares  what  type  of 
data  the  block  is  being  used  for,  the  effective  value  of  any  one  of 
these  functions  will  always  be  the  sixty -four  bit  quantity  within  the 
subscripted  cell.  For  STRAP  users,  this  means  that  the  accumu¬ 
lator  and  all  associated  indicators  have  been  set  by  a  LWF(U)  just 
prior  to  return.  The  motivation  for  separate  names  is  to  allow 

the  FORTRAN  user,  with  a  LOGICAL  LL  statement,  to  avoid  mixed 
expressions  and  otherwise  control  the  FORTRAN  handling  of  the 
function  value. 

th 

(C)  The  following  statement  will  cause  the  I,  J  element  of  a  block  of 
counters  to  be  incremented: 

CALL  ST  (IL(KOUNT,I,  J)+  l,KOUNT,I,  J) 


K.  SW  -  Swap 


(1)  Parameter 
X 


KW 

II 


,  INDIM) 


CALL  SW  (X,KW,I1,I2, .  .  . 
(2)_Type_  (3)  Restrictions 

Variable  — 

Variable  See  F.  (6)(A) 

Fixed  Point  6  <1 1  £  NI 
Expression 


(4)  Description 

The  variable  whose  value 
is  to  be  swapped  with  that 
of  the  subscripted  block 
cell. 

The  key  word  for  the  block. 

1^  subscript  for  the  cell 
whose  value  is  to  be 
swapped  with  that  of  X. 
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Figure  11.  Functional  Flowchart  -  FL,  IL,  LL 
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Note  dotted  lines  enclose  sections 
that  are  actually  repeated  four 
times--once  each  for  the  cases 
NDIM  0 .  1.  2  and  >3. 


Figure  12.  Functional  Flow  Chart  -  FL,  IL,  LL 
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(5)  Operation  (see  Figures  13  and  14) 


Operation  is  the  same  as  that  of  ST  [  see  Paragraph  I] ,  except  that 
"store"  should  be  read  "swap.  "  Also,  the  comparison  with  FORTRAN, 
which  has  no  swap  operation,  does  not  apply. 

(6)  Comments  and  Examples 

(A)  All  comments  for  ST  [  see  Paragraph  I]  apply  with  obvious  mod¬ 
ifications. 

(B)  It  might  be  noted  that,  as  is  required  for  logical  consistency,  the 
subscripts  are  used  to  compute  the  address  of  the  cell  before  the 
swap  is  performed;  hence  the  statement: 

CALL  SW(I,IX,I,J) 

causes 

I  to  assume  the  value  of  IX  ,  ,  , 

old  I,  J 

IX  ,  ,  ,  ,  to  assume  the  value  of  old  I. 
old  I,  J 

L.  RLSTO  -  Release  Storage 

CALL  RLSTO  (KW1,  KW2, . . . ) 

(1)  Parameter  (2)  Type  (3)  Restrictions  (4)  Description 

KW1, . . .  Variable  See  F.  (6)(A)  The  key  words  for  blocks 

to  be  released.  There 
must  be  at  least  one  such 
key  word. 


(5)  Operation  (see  Figure  15) 

The  following  sequence  is  repeated  for  each  key  word  in  the  sequence: 

(A)  The  associated  block  is  located.  It  must  be  currently  allocated. 

(B)  The  key  word  is  set  to  0  and  hence  becomes  invalid  for  any  XPSTC 
associated  operation  except  another  allocation  request. 
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I _ I 


Note:  dotted  lines  enclose  sections  that  are 
actually  repeated  four  times — once  each  for 
the  cases  NDEM  =  0,  1,  2  and  >  3. 


Figure  14.  Functional  Flow  Chart  -  SW 
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Figure  15.  Functional  Flow  Chart  -  RLSTO 
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(C)  The  block  is  flagged  "free"  and  becomes  eligible  for  re-allocation 
in  whole  or  in  part  or  for  overwriting  during  a  Scratchpad  packing 
operation. 

(6)  Comments  and  Examples 

(A)  Once  a  block  has  been  released,  it  is  generally  not  certain  that 
the  same  area  of  Scratchpad  will  be  allocated  the  next  time  a 
storage  request  is  made,  even  if  such  a  request  immediately  followed 
the  release.  Hence  no  attempt  should  be  made  to  use  data  from 

a  block  which  has  been  released  since  the  data  was  stored  there. 

(B)  Example:  CALL  RLSTO  (X(3),  V,K) 


M.  ALLOC  -  Allocation  Status  Test 


Logical  Function:  ALLOC (KW) 

(1)  Parameter  (2)  Type  (3)  Restrictions  (4)  Description 

KW  Variable  -  KWof  the  block  whose 

current  status  is  being 
tested. 

(5)  Operation  (see  Figure  16) 

If  the  block  associated  with  KW  is  currently  legally  allocated,  the 
function  value  is  .  TRUE. .  If  no  allocation  has  been  made,  or  the  block  has 
been  released,  or  the  KW  or  SCW  have  been  contaminated,  the  function  is 
.  FALSE.  . 

(6)  Comments  and  Examples 

(A)  Under  just  the  right  circumstances,  ALLOC  could  generate  an 
invalid  address  (AD)  interrupt  on  a  legal  call  unless  the  following 
precautions  are  taken  with  any  key  words  to  be  tested  by  ALLOC: 

(1)  A  DATA  KW(<()  should  be  used  to  insure  the  initial  state  of 
the  KW  at  load  time. 
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Figure  16.  Functional  Flow  Chart  -  ALLOC 
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(2)  The  key  word  should  not  be  used  for  other  purposes  after 
releasing  the  block  unless  a  KW=0  is  executed  after  such  use. 

(B)  In  general,  this  function  is  useful  only  in  rare  circumstances. 

(C)  Example:  IF(.  NOT.  ALLOC(A))CALL  RQSTO(A,  id) 

N.  ENTCM  -  Enter  Checking  Mode 

CALL  ENTCM 

(1)  Operation  (see  Figure  17) 

(A)  Checking  mode  is  established. 

(B)  The  CM  level  counter,  as  shown  below,  is  incremented  by  1,  and  a 
return  is  made. 

(2)  Comments  and  Examples 

ENTCM  and  the  associated  RESCM  [  see  Paragraph  O]  may  be  thought 
of  as  left  and  right  parentheses,  respectively,  so  that  the  state  of  the  system 
during  a  series  of  ENTCM/RESCM  calls  is  CM  until  the  RESCM  associated 
with  the  first  ENTCM  is  executed: 

. ))) . 

As  initialized  checking  mode  As  initialized 
by  INSTO  [a]> 

The  level  counters  indicate  the  current  depth  of  successive  ENTCMs. 


O.  RESCM  -  Resume  Prior  Checking  Mode 


CALL  RESCM 

(1)  Operation  (see  Figure  17) 

(A)  The  CM  level  counter  is  decremented  by  1.  If  this  brings  the 
level  below  zero,  an  error  stop  results. 

(B)  If  this  reduces  the  level  to  zero,  CM  as  initially  set  up  by  INSTO 
is  re-established.  Otherwise  CM  is  left  in  the  "on"  condition 
and  the  subroutine  returns. 
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Figure  17.  Functional  Flow  Chart  -  ENTCM,  RESCM 
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(2)  Comments  and  Examples 


(A)  As  is  implied  by  Paragraph  (1)(A),  it  is  considered  an  error 
when  more  RESCMs  have  been  executed  than  ENTCMs  since  the 
last  call  to  INSTO. 

(B)  Temporary  establishment  of  checking  mode  has  two  principal  uses: 

(1)  debugging  only  of  a  portion  of  a  system  so  that  checked-out 
segments  are  not  slowed  down  by  validity  checking,  and 

(2)  permanent  validity  checking,  in  places  where  timing  is  not 
critical  and  the  program  author  cannot  otherwise  guarantee 
proper  subscripts,  such  as: 


READ  1,  X,  I,  J, 
CALL  ENTCM 
CALL  ST  (X,  A,I,  J) 
CALL  RESCM 


P.  ENTSM  -  Enter  Stationary  Mode 

CALL  ENTSM 

(1)  Operation  (see  Figure  18) 

(A)  Stationary  mode  is  established. 

(B)  The  SM  level  counter  is  incremented  by  1,  and  a  return  is  made. 

(2)  Comments  and  Examples 

The  same  comments  and  the  example  given  for  ENTCM  [  see  Paragraph 
N.  (2)]  hold,  with  obvious  modifications.  Note  that  in  the  case  of  SM,  "as 
initialized  by  INSTO"  is  always  nonstationary  mode. 
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Figure  18.  Functional  Flow  Chart  -  ENTCM,  RESSM 
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Q.  RESSM  -  Resume  Prior  Stationary  Mode 

CALL  RESSM 

(1)  Operation:  (see  Figure  18) 

Operation  is  similar  to  that  for  RESCM  [see  Paragraph  O.  (1)]  except 
that  when  the  level  counter  is  reduced  to  zero,  SM  is  always  turned 
"off. " 

(2)  Comments  and  Examples: 

(A>  Comment  [see  Paragraph  O.  (2)(A)]  applies  for  ENTSM/RESSM 
also. 

(B)  Stationary  mode  is  generally  to  be  avoided  except  where  neces¬ 
sary  in  conjunction  with  IBASE  [see  Paragraph  H.] 

(C)  For  an  example  of  use  [see  Paragraph  H.  (6)] 


RKW  -  Reassign  Key  Word 

CALL  RKW  (OKW,  NKW) 

Parameter 

(2)  Type 

(3)  Restrictions 

(4)Description 

OKW7 

Variable 

see  F.  (6)  (A) 

Current  key 
word  of  a 
block. 

NKW 

Variable 

Not  in  XPAD 

Word  that 
becomes  the 
key  word 
for  this 

block. 

(5)  Operation:  (see  Figure  19) 

(A)  The  block  associated  with  OKW  is  located.  It  must  be  currently 
allocated. 

(B)  OKW  is  disabled  and  becomes  ineligible  for  further  use  as  a  key 
word. 

(C)  NKW  is  established  as  the  key  word  for  the  block. 
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Figure  19.  Functional  Flow  Chart  -  RKW 
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(6)  Comments  and  Examples: 

(A)  When  key  words  are  arranged  in  a  static  array,  it  is  frequently 
more  efficient  [see  Paragraph  HI,  Storing,  Loading,  and  Swapping, 
page  ]to  redefine  the  desired  key  word,  using  a  single  cell  at 
the  beginning  of  a  long  loop  through  the  array, 

DO  100  1=1,  NPLANE 
CALL  RKW  (KW(I),  TEMPKW) 


CALL  ST  (X,  TEMPKW,  J,  K) 

100  CALL  RKW  (TEMPKW,  KW(I) ) 

(B)  Another  example  is  given  [see  Paragraph  F.  (6)]. 


S.  RQXMP  -  Request  Scratchpad  Map 

CALL  RQXMP 

(1)  Operation:  (see  Figure  20) 

(A)  A  map  of  Scratchpad,  as  exemplified  below,  is  prepared  and  out¬ 
put  displayed  on  SPRINTER  via  IOCS.  Absolutely  no  checking  is 
performed  on  the  validity  of  the  preface  and  key  words  encoun¬ 
tered.  No  XPSTC  error  indication  can  ensue  from  a  CALL 
RQXMP. 

(B)  All  fields,  unless  otherwise  labeled,  are  octal. 

(C)  The  address  before  "CALL  RQXMP"  is  the  address  of  the  branch 
from  the  user's  program  (or,  from  the  XPSTC  error  message 
routine)  to  RQXMP. 

(D1  The  first  field  is  the  address  of  the  storage  control  word  for  the 
block. 

(E)  The  next  six  columns  represent  the  contents  of  this  word  as 
follows: 

Key  word  address 
Pattern  bits  (should  be  152) 

Reserve  bit: 

(Mblock  is  free 
l=block  is  allocated 
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RQXMP 


Figure  20.  Functional  Flow  Chart  -  RQXMP 
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Last  -  block  bit 

0=all  blocks  but  last 
l=last  block  only 
Number  of  dimensions 
Size  of  block  (including  control  words) 

(F)  The  next  two  columns  represent  the  contents  of  the  key  word: 
Storage  control  word  address 

Pattern  bits  (should  be  1002032655  if  the  block  is  reserved). 

(G)  The  next  two  columns  represent  the  contents  of  the  name  word: 
Name  of  the  block,  if  any,  may  be  "hash"  for  certain  free  blocks . 
Type  of  data 

0  Floating  point  or  unspecified 

1  Alphabetic 

2  Integer  (Fixed  point) 

3  Logical 

(H)  The  remaining  fields  contain  the  block  dimensions. 

(2)  Comments  and  Examples: 

(A)  It  is  useful  to  call  RQXMP  just  prior  to  any  snapshot  dump  during 
execution  or  before  an  abnormal  end-of-job  (FORTRAN  "STOP"). 
The  user  will  find  it  easier  to  locate  his  data  with  a  map  of 
Scratchpad.  Typical  RQXMP  output  data  sample  is  shown  in 
Figure  21. 

(B)  RQXMP  is  also  called  when  an  error  condition  is  detected  by 
XPSTC  [see  Error  Diagnostics,  page  49)  . 
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Fiqure  21.  Typical  RQSMP  Output  Sample 


T.  RQXDP  -  Request  Scratchpad  Dump 

CALL  RQXDP 

(1)  Operation:  (see  Figure  22) 

[ll* 

A  zero-locator  dump  of  Scratchpad  is  output  on  the  System 
Printer. 

(2)  Comments: 

The  prime  application  for  RQXDP  is  debugging  XPSTC  itself.  Conse¬ 
quently,  it  is  seldom  used. 

ERROR  DIAGNOSTICS  (See  Figures  23  and  24) 

Because  the  allocation  and  use  of  storage  are  basic  functions,  XPSTC  con¬ 
siders  all  errors  serious  and  terminates  the  job  abnormally  after  printing 

**XPSTC  DIAGNOSTIC  NO.  XX.  THE  CALL  TO 
XPSTC  WAS  FROM  XXXXXX.  X(8).  THE  JOB 
WILL  BE  TERMINATED 

and  a  Scratchpad  map  [see  Paragraph  S,  page  45  ].  The  call  location  is  the 
address  of  the  branch  to  the  XPSTC  subroutine  which  detected  the  error.  The 
diagnostic  number  may  be  used  in  conjunction  with  Table  II  to  determine  the 
probable  cause  of  the  error.  It  should  be  emphasized  that  just  the  right  kind 
of  contamination  of  the  key  or  preface  words  could  cause  certain  of  the  diag¬ 
nostics  which  do  not  list  this  as  a  probable  cause. 


TABLE  H 

XPSTC  Diagnostic  List 


No. 

Subprogram  (s) 

Probable  Cause 

1 

INSTO 

Contaminated  SCW  in  XPAD 

2 

INSTO 

Contaminated  KW 

3 

INSTO 

NSXPAD  less  than  3 

4 

(T)RQ(N)STO* 

(T)RQ(N)STO*  called  before  INSTO 

5 

(T)RQ(NISTO* 

Contaminated  SCW  in  XPAD 

6 

RQ(N)STO* 

Insufficient  available  free  space 

7 

ALSTO 

ALSTO  called  before  INSTO 

8 

ALSTO 

Contaminated  SCW  in  XPAD 

9 

IBASE 

Referenced  KW  contaminated 

10 

IBASE 

SCW  contaminated,  freed  or  does  not 
match  KW 

♦See  Ref.  1;  I.  C.  6.  1 


49 


No. 

Subprogram  (s) 

Probable  Cause 

11 

RLSTO 

Referenced  KW  contaminated 

12 

RLSTO 

SCW  contaminated,  freed  or  does  not 
match  KW 

13 

ST 

Referenced  KW'  contaminated 

14 

ST 

SCW  contaminated,  freed  or  does  not 
match  KW 

15 

ST 

Wrong  number  of  subscripts  (/  NDIM) 

16 

ST 

A  subscript  is  too  large  or  less  than  1 

17 

SW 

Wrong  number  of  subscripts 

18 

SW 

Referenced  KW7  contaminated 

19 

SW 

SCW  contaminated,  freed  or  does  not 
match  KW 

20 

SW 

A  subscript  is  too  large  or  less  than  1 

21 

FL,  IL,  LL 

Wrong  number  of  subscripts 

22 

FL,  IL,  LL 

Referenced  KW  contaminated 

23 

FL,  IL,  LL 

SCW  contaminated,  freed  or  does  not 
match  KW 

24 

FL,  IL,  LL 

A  subscript  is  too  large  or  less  than  1 

25 

RQNSTO 

Too  many  or  no  name  characters 

26 

RQNSTO 

Illegal  code  for  data  type  (/F,  A,  I  or  L) 

27 

RESCM 

More  "RESCMs"  than  "ENTCMs" 

28 

RESSM 

More  "RESSMs"  than  "ENTSMs" 

29 

RQ(N)STO*,  ADJD 

Storage-using  call  requires  packing  but 
SM  is  on 

30 

ALLOC 

Contaminated  SCW  in  XPAD 

31 

RKW 

OKW  is  contaminated 

32 

RKW 

SCW  contaminated,  freed  or  does  not 
match  OKW 

33 

(TIADJD* 

Referenced  KW  contaminated,  or  XPAD 
uninitialized 

34 

(T)ADJD* 

SCW  contaminated,  freed  or  does  not 
match  KW 

35 

(T)ADJD* 

NDIM  less  than  1 

36 

(T)ADJD* 

I  less  than  1  or  greater  than  NDIM 

37 

(T)ADJD* 

Contaminated  SCW  in  XPAD 

38 

ADJD 

Insufficient  space  for  expansion 

39 

(T)ADJD* 

New  NI  less  than  1 

*  (TIRQ(N)STO 

denotes  TRQSTO,  RQNSTO  or  RQSTO 

RQ(N!STO 

denotes  RQNSTO  or  RQSTO 

(T)ADJD 

denotes  TADJD  or  ADJD 
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Figure  22.  Functional  Flow  Chart  -  RQXDP 
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Figure  23.  Functional  Flow  Chart  -  ERRMESS  (Internal  Subroutine) 
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Figure  24.  Functional  Flow  Chart  -  PACK  (Internal  Subroutine) 
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OPERATING  INSTRUCTIONS 


XPSTC  is  intended  to  operate  on  an  IBM  7030  (improved  version  with 
$MR)  [2]  .  The  Master  Control  Program  (MCP)  [l]  *  must  be  in  use  as  the 
monitor.  XPSTC  may  be  loaded  as  a  binary  deck  in  the  standard  FORTRAN 
environment  manner  [l]**.  The  subroutine  IOCS*,  which  is  required  by 
XPSTC,  is  loaded  automatically  by  MCP. 


*  See  Ref.  1;  II  and  3,  22  ff 

**  See  Ref.  1;  R.  B.  1.  2.  4  or  5  and  Ref.  3;  27  ff 
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SECTION  m 


TECHNICAL  INFORMATION 

METHOD 

Block  Organization 

Organization  within  Scratchpad 

At  all  times  after  the  INSTO  call,  Scratchpad  may  be  thought  of  as  seg¬ 
mented  into  one  or  more  blocks,  each  of  which  flagged  as  "free"  or  "reserved" 
Schematically,  Scratchpad  looks  like  this  immediately  after  an  INSTO  call 
(F  =  free,  n  =  reserved  block  number): 

-  increasing  addresses  — - ► 

F  |  (1) 

and  may  look  like  this  after  a  series  of  storage  requests  and  releases: 


When  an  ordinary  storage  request  (RQSTO)  is  received,  XPSTC  first  deter¬ 
mines  the  requisite  extended  block  size  [see  Paragraph  Internal  Organization, 
page  57],  and  then  searches  Scratchpad  for  a  (single)  free  block  of  sufficient 
size;  (2)  might  be  transformed  to: 


(3) 


by  such  a  call.  If  no  such  block  is  found,  and  nonstationary  mode  is  in  effect, 
Scratchpad  is  packed,  (2)  would  become: 


1 


2 


3 


F 


(4) 


and,  if  possible,  the  block  is  allocated  within  the  single  free  block, 
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(5) 


Requesting  all  of  storage  (ALSTO)  will  result  in  packing  if  in  nonstationary 
mode,  and  allocation  of  the  largest  segment  (perhaps  several  blocks)  of  con¬ 
tinuous  free  memory  otherwise.  Starting  with  (2),  the  result  would  be: 


(6) 


in  the  nonstationary  mode  and: 


in  the  stationary  mode. 


(7) 


In-flight  alteration  of  block  size  (ADJD)  is  handled  according  to  the  type  of  ad¬ 
justment  (contract  or  expand).  In  the  case  where  a  block  is  made  smaller,  a 
free  block  is  created  to  take  up  the  excess.  Contracting  block  1  in  (2)  would 
result  in: 


1 


F 


F 


2 


3 


F 


(8) 


In  the  case  of  block  expansion,  when  free  space  is  present  immediately  above 
the  block  in  the  amount  necessary,  it  is  used  as  is.  Expanding  block  3  in  (2) 
might  result  in: 


On  the  other  hand,  when  such  space  is  not  present,  all  free  space  is  collected 
above  the  block  in  question  by  a  special  type  of  packing  (nonstationary  mode 
only).  Expanding  block  2  of  (2)  would  result  in: 
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(10) 


Internal  Organization 

An  extended  block  consists  of  preface  words  (for  XPSTC  use),  followed  by  the 
main  block  (available  to  the  user).  Not  much  need  be  said  about  the  main 
block,  except  that  in  multidimensional  arrays  storage  is  arranged  with  the 
first  subscript  varying  most  rapidly  column-wise  for  the  two-dimensional  case. 
FORTRAN  also  stores  this  way.  The  preface  words  occur  in  the  following 
order: 


SCW 

NW 

FUDGE 


NDIM  (DWs 


(storage  control  word) 
(name  and  type  word) 
(present  only  if  NDIM >3) 


(present  only  if  NDIM  >2) 


The  SCW  is  made  up  of  the  following  fields: 

Bits  Field 

0-17  Address  of  the  Key  Word 

18-24  Pattern  (1101010  .  65  on  OHEX  dumps) 

Li 

25  Reserved  (1)  or  free  (0) 

26  Last  (1)  or  not  (0) 

27  Unused 

28-45  NDIM 

46-63  Size  of  this  extended  block  (NSBLK) 
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The  NW  has  the  following  arrangement: 


Bits 

Field 

0-47 

Name  (A8  code) 

48-60 

Unused 

61-63 

Type — Floating  or  unspecified  (0), 

Alphanumeric  (1),  Integer  (2), 

Logical  (3) 

FUDGE  is  in  FORTRAN  integer  form  and  is  present  only  if  NDIM>3.  It  has 
the  value 


((N  +1)  N  +1).  .  .+1)  N 

u  NDIM-1  ’  NDIM-2  1  ’  1 


NDIM 


which  is  useful  in  subscript  calculation. 

The  DWs,  present  only  when  NDIM>2,  are  also  in  FORTRAN  integer  format 
and  simply  comprise  a  list  of  the  block  dimensions. 


The  key  word  (KW),  which  is  not  a  preface  word  but  is  associated  with  a  re¬ 
served  block,  has  the  following  format: 


Bits 


Field 


0-17 

18-24 

25-31 

32-63 


SOW  address 

0 

Unused 
Pattern  (080835AD 


16 


)  20040.  65  AD  on  OHEX  dumps 


STORING,  LOADING,  AND  SWAPPING 


The  techniques  employed  in  these  functions  are  best  discussed  with  ref¬ 
erence  to  the  "calling  sequence"  compiled  by  FORTRAN  upon  encountering  a 
CALL  or  Function  reference  with  M  arguments. 

Schematically: 

Y  LVI,  15,  $+1 

Y+.  32  B,  FUNCTION 

Y+l.  VF,  ARG1 

Y+l.  32  VF,  SOMETHING  1 
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Y+2. 
Y+2. 32 


VF,  ARG2 

VF,  SOMETHING  2 


Y+M 


VF,  ARGM 


Y+M.  32  VF,  SOMETHING M 

In  this  case  "FUNCTION"  is  ST,  FL,  IL,  LL,  or  SW.  The  fact  that 
"B,  FUNCTION"  is,  in  fact,  through  a  transfer  vector  is  of  no  consequence; 
however, any  other  variation  of  this  form  (loading  $15  several  steps  prior  to  the 
branch)  is  illegal. 

The  "B,  FUNCTION"  as  originally  compiled  is  executed  only  once;  once 
XPSTC  has  been  reached  through  such  a  branch, the  calling  sequence  is  checked 
for  correct  length  (proper  number  of  subscripts)  and  the  "B,  FUNCTION"  is 
replaced  by  a  direct  branch, to  a  point  within  XPSTC  which  by-passes  this  test 
on  subsequent  calls.  The  validity  of  all  arguments  is  then  checked.  If  XPSTC 
is  in  checking  mode,  the  indicated  function  is  then  carried  out  and  return  link¬ 
age  is  performed  in  normal  subroutine  fashion. 

In  nonchecking  mode,  one  of  two  procedures  is  invoked,  depending  ulti¬ 
mately  upon  whether  or  not  the  call  sequence  is  being  stored  into.  FORTRAN 
does  not  usually  compile  code  which  stores  within  call  sequences;  the  exception 
occurs  when  a  dimensioned  variable  indexed  by  a  variable  (or  expression  con¬ 
taining  a  variable)  occurs  singly  (not  as  part  of  an  expression)  as  an  argument. 
For  example: 


CALL  ST  (SIN(X)-1.  ,  SINES,  I(J+1),  K*NRAD+L) 


(1) 


falls  into  this  category  because  of  the  I(J+1).  In  such  an  instance,  FORTRAN 
presumes  that  an  attempt  is  being  made  to  transmit  a  vector  beginning  at 
I(J+1)  and  consequently  the  effective  address  of  I(J+1)  is  computed  just  prior 
to  the  call  and  stored  within  the  call  sequence.  FORTRAN  uses  the  VF, 
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SOMETHING  slot  immediately  following  the  VF,  ARG  slot  in  question  to  effect 
this  computation.  The  SOMETHING  thereby  becomes  nonzero,  whereas  it  is 
always  zero  in  any  other  instance. 

In  an  immediate  sense,  therefore,  the  decision  as  to  procedure  is  based 
upon  whether  or  not  all  the  VF,  SOMETHINGS  are  VF,  0s.  For  the  STRAP 
user,  this  means  that  at  least  one  of  the  VF,  SOMETHINGs  must  be  nonzero  if 
the  calling  sequence  is  to  be  stored  into  by  the  calling  program. 

The  procedure  when  the  calling  sequence  is  being  stored  into  is  to  re¬ 
place  the  B,  FUNCTION  slot  once  again  with  a  branch  to  a  point  where  all  tests 
are  by-passed,  but  the  store,  load  or  swap  function  is  carried  out  and  return 
linkage  effected  in  normal  subroutine  fashion. 

The  procedure  otherwise  is  to  overlay  the  entire  calling  sequence  with  a 
code  which  directly  performs  the  requested  function;  XPSTC  then  returns  to 
this  code  and  thereafter  passes  through  the  same  code  effect  with  no  linkage 
to  XPSTC  whatever. 

Since  this  last  procedure  is  by  far  the  more  efficient,  STRAP  users 
ought  to  avoid  storing  within  calls  wherever  possible  and  FORTRAN  users 
should  avoid  call  arguments  which  will  cause  this  storage  in  the  compiled  code; 
statement  (1)  above,  for  example,  would  be  more  efficient  as 
M  =  I(J+1) 

CALL  ST(SIN(X1  -  1.  ,  SINES,  M,  K*NRAD+L) 
or  even  as 

IZERO  =  0 

CALL  ST(SIN(X)  -  1.  ,  SINES,  I(J+l)+IZERO,  K*NRAD+L) 

One  ramification  of  either  procedure  ought  to  be  noted.  Changes  to  the 
user's  calling  sequence,  either  the  branch  only  or  a  complete  overlay,  are 
such  that  once  a  particular  store,  load,  or  swap  call  has  been  executed  in  the 
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nonchecking  mode,  it  becomes  impossible  to  establish  checking  mode  for  that 
call  during  the  same  run. 

CODING 

XPSTC  was  written  in  the  STRAP  n  (IBM  7030  Assembly  Program)  lan¬ 
guage.  The  coding  is  currently  on  file  at  The  MITRE  Corporation,  Systems 
Design  Laboratory,  Bedford,  Massachusetts. 

STORAGE 

XPSTC  model  3  version  2,  takes  up  1108^  locations  of  core,  which  may 
be  subdivided  (see  Table  III). 

TABLE  m 

Subroutine  Memory  Map 


Relative  Loc.  (8) 

Size  (8) 

Size  (10) 

Transfer  vector 

0 

2 

2 

ALLOC 

2 

24 

20 

ADJD 

26 

222 

146 

ALSTO 

250 

31.4 

25.5 

ENTCM 

301.4 

2.4 

2.5 

ENTSM 

304 

2.4 

2.5 

ERRMESS 

306.4 

53.4 

43.5 

IBASE 

362. 

21.4 

17.5 

INSTO 

403.4 

41.4 

33.5 

RESCM 

445.0 

10.0 

8. 

LOAD  (FL,  IL,  LL) 

455. 

227 

151 

RESSM 

704. 

7 

7 

RQXDP 

713. 

10 

8 

RKW 

723. 

21.4 

17.5 

RLSTO 

744.4 

21 

17 

RQXMP 

765.4 

155.4 

109.5 

RQNSTO 

1143. 

32.4 

26.5 

RQSTO 

1175.4 

115. 

77 

PACK 

1312.4 

32.4 

26.5 

ST 

1345 

247.4 

167.5 

SW 

1614. 4 

250. 

168. 

TADJD 

2064.4 

1.4 

1.5 

TRQSTO 

2066. 

1.4 

1.5 

Internal  Storage 

2067.4 

34.4 

28.5 

2124.  1108. 
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AUXILIARY  ROUTINE 


XPSTC  calls  the  subroutine  IOCS*,  the  FORTRAN  I/O  subroutine  auto¬ 
matically  available  from  the  library  tape  when  operating  with  MCP.  [ lj* 

MODIFYING  THE  PROGRAM 

Unused  Module  Elimination 

Inasmuch  as  the  avowed  purpose  of  XPSTC  is  to  use  ration  storage  effi¬ 
ciently,  w'hich  is  neither  necessary  nor  even  particularly  desirable  except 
when  available  memory  is  limited  in  relation  to  the  possible  size  of  the  data 
base,  the  rather  large  size  of  XPSTC  itself  (1108  locations)  may  appear  some¬ 
what  contradictory.  Actually,  the  trade-off  is  generally  quite  favorable  in  the 
most  usual  case,  where  a  number  of  tables  are  being  used  and  where  core  is 
not  predominantly  occupied  by  programs.  When,  say,  10,000  locations  or  more 
are  available  for  data,  XPSTC  usurps  only  10  percent  or  less  of  this  space, 
less  than  is  usually  wasted  by  worst-case  dimensioning  within  a  region  of  this 
size.  On  the  opposite  extreme,  however,  are  systems  with  only  a  few  variable 
tables  or  which  have  but  tw’o  or  three  thousand  cells  in  excess  of  that  taken  up 
by  programs.  XPSTC  is  definitely  not  applicable  to  such  situations. 

A  third  possibility  is  the  intermediate  case,  where  some  of  XPSTC 
functions  may  be  desirable  but  it  is  necessary  to  free  the  storage  taken  up  by 
unused  subroutines.  Table  IV  may  be  used  to  determine  the  legal  ways  for 
doing  this.  Any  module  or  combination  of  modules  may  be  removed  from  the 
source  deck,  along  with  any  associated  ENTER  cards,  and  the  program  reas¬ 
sembled.  Refer  to  Table  III  to  determine  the  current  relative  location  of  the 
routines  indicated. 


*  Ref.  1;  IV.  D.  4.  12.299.  13. 
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TABLE  IV 


Unit  Module  Chart 


Module 

Storage  (10) 

1. 

ALLOC 

20. 

2. 

ADJD,  TADJD 

147.5 

3. 

ALSTO 

25.5 

4. 

ENTCM 

2.5 

5. 

ENTSM 

2.5 

6. 

IBASE 

17.5 

7. 

RESCM 

8. 

8. 

LOAD  (FL,  IL,  LL) 

(except  card  "LOAD  12") 

150.5 

9. 

RESSM 

7. 

10. 

RQXDP 

8. 

11. 

RKW 

17.5 

12. 

RLSTO 

17. 

13. 

RQNSTO 

26.5 

14. 

RQSTO,  TRQSTO,  RQNSTO 

105.  0 

15. 

ST 

167.5 

16. 

SW 

168.  0 

17. 

TADJD 

1.5 

18. 

TRQSTO 

1.5 

FORTRAN  COMPILER  CHANGES 


XPSTC  leans  on  a  peculiarity  of  the  FORTRAN  compiler  which  could  con¬ 
ceivably  be  changed  in  future  FORTRAN  issues.  That  is,  FORTRAN  currently 
signals  its  intention  to  store  within  a  calling  sequence  (see  Storing,  Loading,  and 
Swapping,  page  58),  but  this  is  an  unessential  aspect  of  the  compiler.  If  future 
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FORTRANS  fail  to  provide  such  a  signal,  the  following  changes  must  be  made 


to  XPSTC: 

(1)  Card  1210  (2  instructions  before  "STORE3")  should 
be  changed  from  CM0000  (BU,  1),  STORE  14. 19  to 
CM1111  (BU,  1),  STORE  14.  19. 

(2)  The  next  card  should  be  changed  from  LI(BU,  19), 
STORE1A  to  LI(BU,  19),  STORE  IB. 

(3)  Cards  1383  -  1504  (instruction  after  STORE  15 
through  NOP  after  STORE3E4)  may  be  removed. 

(4)  The  corresponding  changes  to  LOAD  and  SW  should 
be  made. 
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